home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 3
/
Cream of the Crop 3.iso
/
comm
/
zoomhint.zip
/
WSASC.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-12-16
|
768b
|
47 lines
REM make ASCII from WS.f 12-16-92
CALL "c:"
CALL "cd\text
CALL "xcopy *.f \zoom"
CALL "xcopy *.f d:\donfax"
CALL "cd\zoom"
CALL "dir *.f >f.fls"
F=1
DIM 10WSF$(300)
OPEN "I",#1,"f.fls"
WHILE NOT EOF(1)
INPUT#1,F$
WSF$(F)=F$:PRINT WSF$(F)
F=F+1
WEND
CLOSE
CALL "del *.a"
FF=F-1
FOR I=5 TO FF
FA$=LEFT$(WSF$(I),8)
JJ=0
FOR J=1 TO 8
A$=MID$(FA$,J,1)
IF A$=CHR$(32) AND JJ=0 THEN JJ=J-1
NEXT
IF JJ<>0 THEN FA$=LEFT$(FA$,JJ)
PRINT FA$+".F to "FA$+".A"
OLD$=FA$+".f "
NEW$=FA$+".a"
STRIP$="cleanse "+OLD$+NEW$
CALL STRIP$
NEXT
CALL "del *.f"
CALL "xcopy *.a d:\tpb\zoom\*.
"d"
CALL "D:"
CALL "CD\TPB\ZOOM"
CALL "DEL *.exe"
CALL "lha a zoomhint"
CALL "lha s zoomhint"
CALL "del *.lzh"